; Music of Solomon's Key (1986) (U.S. Gold) (David Whittaker)
; Ripped by Megachur the 28/10/2006
; addresses checked

	write "SOLOMONK.BIN"

music_date_rip	equ &1ca6
music_adr	equ &745c
first_theme	equ 0
last_theme	equ 3

	read "music_header_v1_0.asm"
;
.init_music	; l745c (a = 0,1,2,3)
;
	ex af,af'
	xor a
	ld (l79c3),a
	ld (l79c4),a
	ex af,af'
	ld c,a
	add a
	add c
	add a
	add c
	ld c,a
	ld b,#00
	ld hl,l7c62
	add hl,bc
	ld a,(hl)
	ld (l7545),a
	inc hl
	ld ix,l74b5
	ld c,#20
	ld a,#03
.l747e
	ld e,(hl)
	inc hl
	ld d,(hl)
	inc hl
	push hl
	ld (ix+#10),#01
	ld (ix+#00),b
	ld (ix+#1d),b
	ld (ix+#03),e
	ld (ix+#04),d
	ex de,hl
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld (ix+#05),#02
	ld (ix+#06),b
	pop hl
	ld (ix+#01),e
	ld (ix+#02),d
	add ix,bc
	dec a
	jr nz,l747e
	ld (l77da),a
	inc a
	ld (l7515),a
	ld (l79c3),a
	ret
.l74b5
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#09
.l74d5
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#12
.l74f5
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#24
.l7515
	db #00
;
.play_music	; l7516
;
	call l7a16
	ld a,(l79c3)
	and a
	jp z,l7572
.l7521 equ $ + 1
	ld a,#00
	ld (l756e),a
	ld hl,l7515
	dec (hl)
	jr nz,l7546
	ld b,(hl)

	ld ix,l74b5
	call l76e7

	ld ix,l74d5
	call l76e7

	ld ix,l74f5
	call l76e7

	ld hl,l7515
.l7545 equ $ + 1
	ld (hl),#01
.l7546

	ld ix,l74b5
	call l778e
	ld (l789d),hl
	ld (l78a5),a

	ld ix,l74d5
	call l778e
	ld (l789f),hl
	ld (l78a6),a

	ld ix,l74f5
	call l778e
	ld (l78a1),hl
	ld (l78a7),a

.l756e equ $ + 1
	ld a,#00
	ld (l78a3),a
.l7572
	ld a,(l79c4)
	and a
	jr z,l75a2
;.l7578
	ld hl,(l78aa)
	ld (l789d),hl
	ld hl,(l78ae)
	ld (l78a1),hl
	ld a,(l78b0)
	ld (l78a3),a
	ld a,(l78a4)
.l758d
	or #2d
	ld hl,l78b1
	and (hl)
	ld (l78a4),a
	ld a,(l78b2)
	ld (l78a5),a
	ld a,(l78b4)
	ld (l78a7),a
.l75a2
	ld hl,l79c4
	ld a,(l79c3)
	or (hl)
	ret z
	ld hl,l78a8
	ld d,#0b
.l75af
	ld e,(hl)
	ld b,#f4
	out (c),d
	ld bc,#f600
	out (c),c
	ld a,#c0
	out (c),a
	out (c),c
	ld b,#f4
	out (c),e
	ld b,#f6
	add a
	out (c),a
	out (c),c
	dec hl
	dec d
	jp p,l75af
	ret
.l75d0
	ld de,#0d00
.l75d3
	call l75dd
	dec d
	jp p,l75d3
	ld de,#073f
.l75dd
	ld b,#f4
	out (c),d
	ld bc,#f600
	out (c),c
	ld a,#c0
	out (c),a
	out (c),c
	ld b,#f4
	out (c),e
	ld b,#f6
	add a
	out (c),a
	out (c),c
	ret
;
.stop_music
;
	xor a
	ld (l79c3),a
	ld (l79c4),a
	call l75d0
	xor a
	ld (l78a5),a
	ld (l78a6),a
	ld (l78a7),a
	ret
;
.jumps_table
;
	db l76d8-$	;#cb
	db l76c1-$	;#b3
	db l76c6-$	;#b7
	db l76cc-$	;#bc
	db l768b-$	;#7a
	db l76bb-$	;#a9
	db l76b7-$	;#a4
	db l7625-$	;#11
	db l76a8-$	;#93
	db l76a1-$	;#8b
	db l7667-$	;#50
	db l7652-$	;#3a
	db l767b-$	;#62
	db l76d2-$	;#b8
	db l761d-$	;#02
	db l76e1-$	;#c5
.l761d
	xor a
	ld (l79c3),a
	pop hl
	jp l75d0
.l7625
	ld c,(ix+#05)
	ld b,(ix+#06)
	ld l,(ix+#03)
	ld h,(ix+#04)
	add hl,bc
	inc bc
	inc bc
	ld a,(hl)
	inc hl
	ld d,(hl)
	ld e,a
	or d
	jr nz,l7647
	ld l,(ix+#03)
	ld h,(ix+#04)
	ld bc,#0002
	ld e,(hl)
	inc hl
	ld d,(hl)
.l7647
	ld (ix+#05),c
	ld (ix+#06),b
	ld b,#00
	jp l76f5
.l7652
	ld a,(ix+#1f)
	ld c,a
	and #07
	ld hl,l7882
	xor (hl)
	and c
	xor (hl)
	ld (hl),a
	ld a,#01
	ld (ix+#1e),a
	jp l76f5
.l7667
	ld a,(ix+#1f)
	ld c,a
	and #38
	ld hl,l7882
	xor (hl)
	and c
	xor (hl)
	ld (hl),a
	xor a
	ld (ix+#1e),a
	jp l76f5
.l767b
	ld hl,l7882
	ld a,(ix+#1f)
	cpl
	and (hl)
	ld (hl),a
	ld a,#01
	ld (ix+#1e),a
	jr l76f5
.l768b
	ld a,(de)
	inc de
	ld (ix+#07),b
	ld (ix+#08),b
	ld (ix+#0d),a
	set 2,(ix+#00)
	ld a,(de)
	ld (ix+#0e),a
	inc de
	jr l76f5
.l76a1
	ld a,(de)
	inc de
	ld (l77da),a
	jr l76f5
.l76a8
	ld a,(de)
	ld (ix+#1b),a
	inc de
	ld a,(de)
	ld (ix+#1a),a
	inc de
	ld (ix+#1c),a
	jr l76f5
.l76b7
	set 7,(ix+#00)
.l76bb
	set 3,(ix+#00)
	jr l76f5
.l76c1
	ld (ix+#1d),b
	jr l76f5
.l76c6
	ld (ix+#1d),#40
	jr l76f5
.l76cc
	ld (ix+#1d),#c0
	jr l76f5
.l76d2
	set 1,(ix+#00)
	jr l76f5
.l76d8
	ld (ix+#13),b
	res 5,(ix+#00)
	jr l7721
.l76e1
	res 5,(ix+#00)
	jr l7721
.l76e7
	dec (ix+#10)
	jr nz,l772e
	ld (ix+#00),b
	ld e,(ix+#01)
	ld d,(ix+#02)
.l76f5
	ld a,(de)
	inc de
	and a
	jp m,l773f
	ld (ix+#12),a
	bit 0,(ix+#1e)
	jr z,l7707
	ld (l7521),a
.l7707
	ld a,(ix+#19)
	ld (ix+#13),a
	set 5,(ix+#00)
	set 6,(ix+#00)
	ld a,(ix+#14)
	ld (ix+#16),a
	ld a,(ix+#17)
	ld (ix+#18),a
.l7721
	ld a,(ix+#11)
	ld (ix+#10),a
	ld (ix+#02),d
	ld (ix+#01),e
	ret
.l772e
	ld a,(ix+#00)
	bit 3,a
	ret z
	rla
	jr nc,l773b
	inc (ix+#12)
	ret
.l773b
	dec (ix+#12)
	ret
.l773f
	cp #b8
	jr c,l7786
	add #20
	jr c,l776b
	add #10
	jr c,l7771
	add #10
	jr nc,l7764
	ld c,a
	ld hl,l7976
	add hl,bc
	ld c,(hl)
	add hl,bc
	ld (ix+#0b),l
	ld (ix+#09),l
	ld (ix+#0c),h
	ld (ix+#0a),h
	jr l76f5
.l7764
	add #09
	ld (l7545),a
	jr l76f5
.l776b
	inc a
	ld (ix+#11),a
	jr l76f5
.l7771
	ld (ix+#19),a
	ld a,(de)
	inc de
	ld (ix+#14),a
	ld a,(de)
	inc de
	ld (ix+#15),a
	ld a,(de)
	inc de
	ld (ix+#17),a
	jp l76f5
.l7786
	ld hl,jumps_table-&80	;l758d
	ld c,a
	add hl,bc
	ld c,(hl)
	add hl,bc
	jp (hl)
.l778e
	ld c,(ix+#00)
	bit 5,c
	jr z,l77d9
	ld a,(ix+#16)
	sub #10
	jr nc,l77c1
	bit 6,c
	jr z,l77c6
	add (ix+#13)
	jr nc,l77a6
	sbc a
.l77a6
	add #10
	ld (ix+#13),a
	ld a,(ix+#18)
	sub #10
	jr nc,l77bc
	res 6,c
	ld a,(ix+#15)
	ld (ix+#16),a
	jr l77d9
.l77bc
	ld (ix+#18),a
	jr l77d9
.l77c1
	ld (ix+#16),a
	jr l77d9
.l77c6
	cpl
	sub #0f
	add (ix+#13)
	jr c,l77cf
	sub a
.l77cf
	ld (ix+#13),a
	dec (ix+#18)
	jr nz,l77d9
	res 5,c
.l77da equ $ + 1
.l77d9
	ld a,#00
	add (ix+#12)
	ld b,a
	ld l,(ix+#0b)
	ld h,(ix+#0c)
	ld a,(hl)
	cp #87
	jr c,l77f1
	ld l,(ix+#09)
	ld h,(ix+#0a)
	ld a,(hl)
.l77f1
	inc hl
	ld (ix+#0b),l
	ld (ix+#0c),h
	add b
	ld hl,l78b6
	ld d,#00
	add a
	ld e,a
	add hl,de
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld l,(ix+#1d)
	bit 6,l
	jr z,l7853
	ld h,a
	ld b,(ix+#1a)
	sla b
	bit 7,l
	ld a,(ix+#1c)
	jr z,l781c
	bit 0,c
	jr nz,l783a
.l781c
	bit 5,l
	jr nz,l782c
	sub (ix+#1b)
	jr nc,l7837
	set 5,(ix+#1d)
	sub a
	jr l7837
.l782c
	add (ix+#1b)
	cp b
	jr c,l7837
	res 5,(ix+#1d)
	ld a,b
.l7837
	ld (ix+#1c),a
.l783a
	ex de,hl
	srl b
	sub b
	ld e,a
	ld a,d
	ld d,#00
	jr nc,l7845
	dec d
.l7845
	add #a0
	jr c,l7851
.l7849
	sla e
	rl d
	add #18
	jr nc,l7849
.l7851
	add hl,de
	ex de,hl
.l7853
	ld a,c
	xor #01
	ld (ix+#00),a
	bit 2,c
	jr z,l787e
	ld b,(ix+#0e)
	djnz l787b
	ld c,(ix+#0d)
	bit 7,c
	jr z,l786a
	dec b
.l786a
	ld l,(ix+#07)
	ld h,(ix+#08)
	add hl,bc
	ld (ix+#07),l
	ld (ix+#08),h
	add hl,de
	ex de,hl
	jr l787e
.l787b
	ld (ix+#0e),b
.l787e
	cpl
	and #03
.l7882 equ $ + 1
	ld a,#38
	jr nz,l788f
	ld a,(l7521)
	xor #08
	ld (l756e),a
	ld a,#07
.l788f
	ld hl,l78a4
	xor (hl)
	and (ix+#1f)
	xor (hl)
	ld (hl),a
	ex de,hl
	ld a,(ix+#13)
	ret
.l78a4 equ $ + 7
.l78a3 equ $ + 6
.l78a1 equ $ + 4
.l789f equ $ + 2
.l789d
	db #00,#00,#00,#00,#00,#00,#00,#3f
.l78ab equ $ + 6
.l78aa equ $ + 5
.l78a8 equ $ + 3
.l78a7 equ $ + 2
.l78a6 equ $ + 1
.l78a5
	db #0f,#0f,#0f,#00,#00,#00,#00,#00
.l78b4 equ $ + 7
.l78b2 equ $ + 5
.l78b1 equ $ + 4
.l78b0 equ $ + 3
.l78ae equ $ + 1
	db #00,#00,#00,#00,#3f,#10,#00,#10
	db #00
.l78b6
	dw #077c,#0708,#06b0,#0640
	dw #05ec,#0594,#0544,#04f8
	dw #04b0,#0470,#042c,#03f0
	dw #03be,#0384,#0358,#0320
	dw #02f6,#02ca,#02a2,#027c
	dw #0258,#0238,#0216,#01f8
	dw #01df,#01c2,#01ac,#0190
	dw #017b,#0165,#0151,#013e
	dw #012c,#011c,#010b,#00fc
	dw #00ef,#00e1,#00d6,#00c8
	dw #00bd,#00b2,#00a8,#009f
	dw #0096,#008e,#0085,#007e
	dw #0077,#0070,#006b,#0064
	dw #005e,#0059,#0054,#004f
	dw #004b,#0047,#0042,#003f
	dw #003b,#0038,#0035,#0032
	dw #002f,#002c,#002a,#0027
	dw #0025,#0023,#0021,#001f
	dw #001d,#001c,#001a,#0019
	dw #0017,#0016,#0015,#0013
	dw #0012,#0011,#0010,#000f
	dw #000e,#000e,#000d,#000c
	dw #000b,#000b,#000a,#0009
	dw #0009,#0008,#0008,#0007
.l7976
	db #10,#11,#14,#17,#1b,#1f,#22,#25
	db #28,#2b,#2d,#2f,#31,#33,#35,#39
	db #00,#87,#00,#03,#07,#87,#00,#04
	db #07,#87,#00,#03,#07,#0c,#87,#00
	db #04,#07,#0c,#87,#07,#0c,#0f,#87
	db #07,#0c,#10,#87,#03,#07,#0c,#87
	db #04,#07,#0c,#87,#00,#0c,#87,#00
	db #04,#87,#00,#03,#87,#00,#05,#87
	db #00,#07,#87,#00,#00,#0c,#0c,#87
	db #00,#03,#07,#0a,#87
.l79c3
.music_end
	db #00
.l79c4
	db #00
;
; sound effect &79c5
;
	ld hl,l79c4
	ld (hl),#00
	ld hl,l7ab4
	add a
	add l
	ld l,a
	jr nc,l79d3
	inc h
.l79d3
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld b,#11
	ld hl,l7c30
.l79db
	ld a,(de)
	ld (hl),a
	inc hl
	inc de
	djnz l79db
	ld a,(l7c31)
	ld (l7c41),a
	ld hl,(l7c32)
	ld (l78aa),hl
	ld de,(l7c34)
	ld (l78ae),de
	ld a,l
	ld (l78b0),a
	ld a,(l7c37)
	ld (l78b1),a
	ld a,(l7c36)
	ld e,a
	ld d,#0c
	call l75dd
	ld a,(l7c40)
	ld e,a
	ld d,#0d
	call l75dd
	ld hl,l79c4
	inc (hl)
	ret
.l7a16
	call l7c43
	ld a,(l79c4)
	and a
	ret z
	ld a,(l7c30)
	and a
	jr nz,l7a2a
	ld (l79c4),a
	jp l75d0
.l7a2a
	dec a
	ld (l7c30),a
	ld a,(l7c41)
	and a
	jr nz,l7a63
	ld a,(l7c3e)
	and a
	ret z
	dec a
	ld (l7c3e),a
	ld a,(l7c31)
	ld (l7c41),a
	ld a,(l7c3f)
	and a
	jr z,l7a4c
	ld a,(l7c5e)
.l7a4c
	ld b,a
	ld a,(l7c32)
	add b
	ld (l78aa),a
	ld a,(l7c33)
	add b
	and #0f
	ld (l78ab),a
	ld hl,(l7c34)
	ld (l78ae),hl
.l7a63
	ld hl,l7c41
	dec (hl)
	ld a,(l7c3c)
	and a
	jr z,l7a8a
	jp p,l7a7d
	ld hl,(l78aa)
	ld de,(l7c38)
	add hl,de
	ld (l78aa),hl
	jr l7a8a
.l7a7d
	ld hl,(l78aa)
	ld de,(l7c38)
	and a
	sbc hl,de
	ld (l78aa),hl
.l7a8a
	ld a,(l7c3d)
	and a
	jr z,l7aad
	jp p,l7aa0
	ld hl,(l78ae)
	ld de,(l7c3a)
	add hl,de
	ld (l78ae),hl
	jr l7aad
.l7aa0
	ld hl,(l78ae)
	ld de,(l7c3a)
	and a
	sbc hl,de
	ld (l78ae),hl
.l7aad
	ld a,(l78aa)
	ld (l78b0),a
	ret
.l7ab4
	dw l7adc,l7aed,l7afe,l7b0f
	dw l7b20,l7b31,l7b42,l7b53
	dw l7b64,l7b75,l7b86,l7b97
	dw l7ba8,l7bb9,l7bca,l7bdb
	dw l7bec,l7bfd,l7c0e,l7c1f
l7adc
	db #3c,#14,#80,#00,#a0,#00,#28,#f2
	db #01,#00,#01,#00,#ff,#ff,#0a,#00
	db #00
l7aed
	db #3c,#14,#60,#00,#88,#00,#28,#f2
	db #01,#00,#01,#00,#ff,#ff,#0a,#00
	db #00
l7afe
	db #19,#07,#00,#04,#10,#04,#0f,#fa
	db #98,#00,#98,#00,#ff,#ff,#05,#00
	db #00
l7b0f
	db #19,#07,#80,#04,#90,#04,#0f,#fa
	db #98,#00,#98,#00,#ff,#ff,#05,#00
	db #00
l7b20
	db #50,#06,#8a,#02,#60,#02,#0c,#fa
	db #40,#00,#40,#00,#01,#01,#0f,#01
	db #0e
l7b31
	db #50,#06,#0a,#02,#00,#02,#0c,#fa
	db #40,#00,#40,#00,#01,#01,#0f,#01
	db #0e
l7b42
	db #23,#07,#c0,#01,#80,#03,#14,#fa
	db #20,#00,#18,#00,#01,#01,#3c,#00
	db #00
l7b53
	db #2d,#0a,#08,#00,#0b,#00,#0f,#fa
	db #08,#00,#08,#00,#ff,#ff,#0a,#00
	db #00
l7b64
	db #3c,#14,#20,#00,#47,#00,#1e,#fa
	db #01,#04,#01,#04,#01,#01,#ff,#00
	db #00
l7b75
	db #1e,#1f,#0f,#02,#0f,#02,#05,#d7
	db #00,#00,#00,#00,#01,#01,#00,#00
	db #0e
l7b86
	db #32,#0a,#0a,#00,#0f,#00,#23,#d2
	db #03,#00,#04,#00,#ff,#01,#0a,#01
	db #00
l7b97
	db #32,#1a,#b8,#00,#98,#00,#1e,#fa
	db #03,#00,#04,#00,#01,#01,#03,#00
	db #00
l7ba8
	db #32,#12,#00,#02,#05,#01,#1e,#fa
	db #20,#00,#10,#00,#01,#01,#0a,#00
	db #00
l7bb9
	db #3c,#0d,#80,#00,#10,#02,#1e,#fa
	db #06,#00,#14,#00,#01,#01,#ff,#00
	db #00
l7bca
	db #0a,#05,#0a,#01,#17,#01,#09,#fa
	db #1f,#00,#1c,#00,#ff,#ff,#05,#00
	db #00
l7bdb
	db #28,#06,#01,#03,#11,#03,#14,#fa
	db #c8,#00,#cc,#00,#ff,#ff,#ff,#00
	db #00
l7bec
	db #03,#63,#1f,#02,#10,#02,#01,#df
	db #00,#00,#00,#00,#01,#01,#00,#00
	db #0e
l7bfd
	db #14,#07,#aa,#00,#ae,#00,#11,#fa
	db #20,#00,#20,#00,#ff,#ff,#06,#00
	db #00
l7c0e
	db #14,#07,#c1,#01,#81,#03,#11,#fa
	db #20,#00,#18,#00,#01,#01,#3c,#00
	db #00
l7c1f
	db #14,#06,#81,#00,#86,#00,#28,#d2
	db #24,#00,#29,#00,#ff,#ff,#15,#00
	db #00
.l7c30 
	db #00
.l7c31
	db #00
.l7c32
	db #00
.l7c33
	db #00
.l7c3a equ $ + 6
.l7c38 equ $ + 4
.l7c37 equ $ + 3
.l7c36 equ $ + 2
.l7c34
	db #00,#00,#00,#00,#00,#00,#00,#00
.l7c41 equ $ + 5
.l7c40 equ $ + 4
.l7c3f equ $ + 3
.l7c3e equ $ + 2
.l7c3d equ $ + 1
.l7c3c
	db #00,#00,#00,#00,#00,#00,#00
.l7c43
	ld a,(l7c5e)
	and #48
	adc #38
	sla a
	sla a
	ld hl,l7c61
	rl (hl)
	dec hl
	rl (hl)
	dec hl
	rl (hl)
	dec hl
	rl (hl)
	ld a,(hl)
	ret
.l7c61 equ $ +3
.l7c5e
	db #ff,#80,#1b,#34
.l7c62
	db #09
	dw l7c7e,l7c82,l7c90
	db #06
	dw l7d7a,l7da2,l7d8e
	db #04
	dw l7e43,l7e47,l7e4b
	db #09
.l7c7e equ $ + 6
	dw l7eb1,l7ead,l7eb5,l7cae
	dw #0000
.l7c82
	dw l7fb4,l7cee,l7cee,l7fb7
	dw l7cee,l7cee,#0000
.l7c90
	dw l7d1a,l7d1e,l7d1e,l7d48
	dw l7d5d,l7d48,l7d6c,l7d1c
	dw l7d1e,l7d1e,l7d48,l7d5d
	dw l7d48,l7d6c,#0000
.l7cae
	db #8b,#c0,#e0,#80,#d3,#13,#00,#40
	db #41,#dd,#00,#11,#05,#27,#8d,#27
	db #8f,#d3,#13,#00,#40,#41,#dd,#00
	db #11,#05,#27,#8d,#27,#8f,#d3,#13
	db #00,#40,#41,#dd,#00,#11,#05,#27
	db #8d,#27,#d3,#13,#00,#40,#41,#dd
	db #00,#11,#05,#27,#d3,#13,#00,#40
	db #41,#dd,#00,#11,#05,#8d,#27,#87
.l7cee
	db #8a,#88,#01,#02,#82,#c0,#df,#00
	db #11,#05,#e0,#18,#1b,#1f,#1b,#1a
	db #1d,#22,#1a,#1b,#1f,#24,#1b,#1d
	db #20,#26,#1d,#1b,#1f,#24,#1b,#1a
	db #1d,#22,#1a,#18,#1b,#1f,#18,#17
	db #1a,#1f,#17,#87
.l7d1a
	db #c0,#87
.l7d1c
	db #c9,#87
.l7d1e
	db #8a,#88,#01,#01,#82,#df,#00,#11
	db #07,#e1,#80,#e0,#30,#30,#e1,#2f
	db #e0,#30,#30,#e1,#32,#e0,#30,#2f
	db #e3,#30,#e1,#8f,#e0,#30,#30,#e1
	db #2f,#e0,#30,#30,#e1,#2b,#27,#26
	db #2b,#87
.l7d48
	db #e1,#8f,#e0,#30,#30,#e1,#2f,#e0
	db #30,#30,#e1,#32,#e0,#30,#2f,#e1
	db #30,#e0,#32,#33,#87
.l7d5d
	db #e1,#35,#e0,#33,#32,#e1,#33,#e0
	db #35,#37,#e1,#38,#e5,#37,#87
.l7d6c
	db #e0,#35,#33,#32,#30,#33,#32,#30
	db #2f,#e1,#30,#e5,#2b,#87
.l7d7a
	dw l7db6,l7dc4,l7dc4,l7dc4
	dw l7dc4,l7dc4,l7dc4,l7dc4
	dw l7dc4,#0000
.l7d8e
	dw l7de5,l7df3,l7df3,l7df3
	dw l7df3,l7df3,l7df3,l7df3
	dw l7df3,#0000
.l7da2
	dw l7e14,l7e22,l7e22,l7e22
	dw l7e22,l7e22,l7e22,l7e22
	dw l7e22,#0000
.l7db6
	db #8a,#c0,#df,#00,#91,#02,#e4,#86
	db #15,#df,#00,#11,#06,#87
.l7dc4
	db #e0,#c0,#0c,#0c,#18,#0c,#0c,#18
	db #0c,#18,#0f,#0f,#1b,#0e,#0e,#1a
	db #0d,#19,#0c,#0c,#18,#0c,#0c,#18
	db #0c,#0c
	db #07,#09,#0b,#07,#09,#0b,#87
.l7de5
	db #8a,#df,#00,#91,#02,#e4,#c3,#86
	db #21,#df,#00,#11,#06,#87
.l7df3
	db #e0,#c1,#24,#24,#30,#24,#24,#30
	db #24,#30,#27,#27,#33,#26,#26,#32
	db #25,#31,#24,#24,#30,#24,#24,#30
	db #24,#24,#1f,#21,#23,#1f,#21,#23
	db #87
.l7e14
	db #8a,#df,#00,#91,#02,#e4,#c9,#86
	db #2d,#de,#00,#11,#06,#87
.l7e22
	db #e0,#c0,#30,#30,#3c,#30,#30,#3c
	db #30,#3c,#33,#33,#3f,#32,#32,#3e
	db #31,#3d,#30,#30,#3c,#30,#30,#3c
	db #30,#30,#2b,#2d,#2f,#2b,#2d,#2f
	db #87
.l7e43
	dw l7e4f,#0000
.l7e47
	dw l7e6d,#0000
.l7e4b
	dw l7e8d,#0000
.l7e4f
	db #8a,#c0,#88,#01,#01,#82,#df,#00
	db #12,#04,#e0,#3a,#39,#38,#37,#36
	db #35,#34,#33,#32,#31,#df,#00,#81
	db #04,#eb,#30,#ef,#3c,#8e
.l7e6d
	db #8a,#c0,#88,#01,#01,#82,#df,#00
	db #12,#04,#e0,#46,#45,#44,#43,#42
	db #41,#40,#3f,#3e,#3d,#e3,#80,#df
	db #00,#81,#04,#e7,#34,#ef,#8f,#8e
.l7e8d
	db #8a,#c0,#88,#01,#01,#82,#df,#00
	db #12,#04,#e0,#52,#51,#50,#4f,#4e
	db #4d,#4c,#4b,#4a,#49,#e7,#80,#df
	db #00,#81,#04,#e3,#37,#ef,#8f,#8e
.l7ead
	dw l7ed9,#0000
.l7eb1
	dw l7f2b,#0000
.l7eb5
	dw l7f57,l7f5a,l7f5a,l7f7e
	dw l7f9b,l7f7e,l7f9d,l7f9f
	dw l7f9f,l7f5a,l7f5a,l7f7e
	dw l7f9b,l7f7e,l7f9d,l7f9f
	dw l7f9f,#0000
.l7ed9
	db #88,#01,#01,#82,#e0,#c0,#df,#00
	db #21,#05,#8a,#18,#df,#00,#11,#05
	db #18,#8d,#18,#18,#18,#18,#8d,#18
	db #18,#df,#00,#21,#05,#15,#df,#00
	db #11,#05,#15,#8d,#15,#15,#15,#8d
	db #15,#15,#8d,#15,#df,#00,#21,#05
	db #11,#df,#00,#11,#05,#11,#8d,#11
	db #11,#11,#11,#8d,#11,#11,#df,#00
	db #21,#05,#13,#df,#00,#11,#05,#13
	db #8d,#13,#13,#15,#8d,#15,#17,#8d
	db #17,#87
.l7f2b
	db #8a,#88,#01,#01,#82,#dd,#00,#12
	db #05,#c0,#e0,#24,#28,#2b,#2f,#30
	db #34,#37,#3b,#21,#24,#28,#2b,#2d
	db #30,#34,#37,#1d,#21,#24,#28,#29
	db #2d,#30,#34,#1f,#23,#26,#29,#2b
	db #2f,#32,#35,#87
.l7f57
	db #ff,#80,#87
.l7f5a
	db #8a,#88,#01,#01,#82,#c0,#df,#00
	db #51,#09,#e1,#8f,#e0,#2b,#28,#2b
	db #28,#26,#e8,#24,#e1,#8f,#e0,#2d
	db #29,#2d,#29,#28,#e1,#26,#e2,#23
	db #e1,#24,#26,#87
.l7f7e
	db #e1,#8f,#e0,#2b,#28,#2b,#28,#26
	db #24,#e1,#2d,#e0,#2f,#e4,#2d,#e1
	db #8f,#e0,#2d,#29,#2d,#29,#28,#26
	db #e1,#2f,#2d,#2b,#87
.l7f9b
	db #29,#87
.l7f9d
	db #2f,#87
.l7f9f
	db #e2,#30,#e4,#30,#e2,#30,#e4,#30
	db #e2,#30,#e4,#30,#e0,#32,#32,#32
	db #e1,#34,#e2,#32,#87
.l7fb4
	db #89,#00,#87
.l7fb7
	db #89,#fd,#87

;org #34ad	; exemple bruitage
;ld a,#0c
;call #79c5
;
;org #3495
;ld a,#11
;call #79c5

;org #7000	; exemple play
;ld a,#02
;call #745c
;.l01c5
;ld a,(#79c3)
;or a
;jr nz,l01c5
;jp #7578

.game_name
	db "Solomon's Key",0
.game_year
	db "1986",0
.game_publisher
	db "U.S. Gold",0
.music_author
	db "David Whittaker",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
